home *** CD-ROM | disk | FTP | other *** search
/ Sun Solutions 1997 April to September / Sun Solutions CD - APR '97 - SEP '97 (704-3778-12 Rev. H)(Sun Microsystems, Inc.)(1997).iso / products / bin / httpd / Solaris_2 / AT-lsbuild.cgi < prev    next >
Text File  |  1997-02-25  |  1KB  |  66 lines
  1. #!/bin/sh
  2. perl=/tmp/httpd/.excite/perl
  3. eval "exec $perl -x $0 $*"
  4. #!perl
  5. ## Copyright (c) 1996 Excite, Inc.
  6. ##
  7.  
  8. BEGIN {
  9.   $root = "/tmp/httpd/.excite";
  10.   die "Invalid root directory '$root'\n" unless -d $root;
  11.   unshift(@INC, "$root/perllib");
  12. }
  13.  
  14. $| = 1;
  15.  
  16. require 'architextConf.pl';
  17. require 'architext_query.pl';
  18. require 'architext_map.pl';
  19. require 'architext.pl';
  20.  
  21. %form = &Architext'readFormArgs;
  22. $db = $form{'db'};
  23. %attr = &ArchitextConf'readConfig("$root/Architext.conf", $db);
  24. $croot = $attr{'CollectionRoot'};
  25.  
  26. open(TMP, ">$croot.progress");
  27. close(TMP);
  28.  
  29. $status = &ArchitextQuery'createURLFiles($root, $db, %attr);
  30. if ($status == -1) {
  31.   unlink "$croot.progress";
  32.   unlink "$croot.url.idx";
  33.   unlink "$croot.url.map";
  34.   unlink "$croot.sum.idx";
  35.   unlink "$croot.sum.map";
  36.  
  37.   print "Content-Type: text/plain\n\n";
  38.   print "FAILED building url files\n";
  39.   exit(1);
  40. };
  41.  
  42. $sysstr = "$root/createSummaryFiles -R $croot";
  43. $sysstr = &convert_file_names($sysstr);
  44. $status = system($sysstr);
  45.  
  46. if ($status) {
  47.   unlink "$croot.progress";
  48.   unlink "$croot.url.idx";
  49.   unlink "$croot.url.map";
  50.   unlink "$croot.sum.idx";
  51.   unlink "$croot.sum.map";
  52.  
  53.   print "Content-Type: text/plain\n\n";
  54.   print "FAILED building summary files ($status)\n";
  55.   exit(1);
  56. }
  57.  
  58. unlink "$croot.progress";
  59.  
  60. print "Content-Type: text/plain\n\n";
  61. print "FINISHED\n";
  62. exit(0);
  63.  
  64.  
  65.  
  66.